home *** CD-ROM | disk | FTP | other *** search
/ Grand Slam 3 / Grand Slam 3.iso / 030 / airpt119.arj / AIRPT055.API < prev    next >
Text File  |  1995-09-26  |  3KB  |  163 lines
  1. ; Fichier include SCASM AIRPT055.API pour POLY3D TYPE = &SHIP1  
  2. ; Include SCASM FILE AIRPT055.API for POLY3D TYPE = &SHIP1  
  3.  
  4. ; création fichier objet : christian muenier 
  5. ;
  6. ;       YACHT AVEC LUMIERES
  7.  
  8. ; couleur 1 = coque
  9. ; couleur 2 = pont
  10. ; couleur 3 = cabine
  11.  
  12. ; taille standard : hauteur  9 m  /  scale 1
  13. ;                   longueur 40 m
  14. ;                   largeur  8 m
  15.  
  16.  
  17.  
  18. Area( b  %1  %2  %3 )
  19.     
  20.     PerspectiveCall( :house1 )
  21.     ShadowCall( :house2 )
  22.     Jump( : )
  23.  
  24. :house1
  25.     Perspective
  26. :house2
  27.     RefPoint( 2 :house_end %4 %1  %2 v1= %10 E= %11 )
  28.     RotatedCall( :house3 0 0 %5 )
  29. :house_end
  30.     Return
  31.  
  32. :house3
  33.     Points( 0
  34.       0  0  0        0  0 16         5  0   8         4  0  -6
  35.       6  0 -20      -5  0 -20       -4  0  -6        -5  0   8
  36.       0  2 20       -7  2  8        -7  2 -20         7  2 -20
  37.       7  2  8       -4  2  8        -4  2  -6         4  2  -6
  38.       4  2  8       -4  4  8        -4  4  -6         4  4  -6
  39.       4  4  8        4  2 -20       -4  2  -20       -3  4   7
  40.      -3  4  -1       3  4  -1        3  4   7        -3  5   7
  41.      -3  5  -1       3  5  -1        3  5   7        -2  5   6
  42.      -2  9  6        2  5  6         2  8   6         0  2 -20
  43.       0  5 -22      -2  5  0         2  5  0
  44.  
  45.     )
  46.  
  47. :dessin
  48.     SurfaceColor( %6 F0 )
  49.     Poly( a 1 8 9  7 ) ;flanc avG
  50.     Poly( a 9 10 5 7 ) ;flanc G
  51.     Poly( a 2 4 11 12 ) ;flanc D
  52.     Poly( a 1 2 12 8 ) ;flanc avD
  53.     Poly( a 4 5 10 11 )  ;ar
  54.  
  55.     SurfaceColor( %7 F0 )
  56.     Poly( a 8 9 12 ) ;pont av
  57.     Poly( a 9 10 22 13 ) ;pont G
  58.     Poly( a 11 12 16 21 ) ;pont D
  59.  
  60.     Bitmap( airpt006.oav 0 0 0 0 )
  61.     ;pont ar
  62.     TexPoly( a
  63.     21 0 183
  64.     22 0 224
  65.     14 50 224
  66.     15 50 183
  67.     )
  68.     ;roof
  69.     TexPoly( a
  70.     23 230 250
  71.     27 230 256
  72.     28 256 256
  73.     24 256 250
  74.     )
  75.     TexPoly( a
  76.     24 230 250
  77.     28 230 256
  78.     29 256 256  
  79.     25 256 250  
  80.     )
  81.     TexPoly( a
  82.     25 230 250
  83.     29 230 256
  84.     30 256 256  
  85.     26 256 250  
  86.     )
  87.     TexPoly( a
  88.     26 230 250
  89.     30 230 256
  90.     27 256 256  
  91.     23 256 250  
  92.     )
  93.  
  94.     SurfaceColor( %8 F0 )
  95.     Poly( a 16 20 17 13 ) ;av cabine
  96.     Poly( a 18 19 15 14 ) ;ar cabine
  97.     Poly( a 17 18 19 20 ) ;toit cabine
  98.     
  99.     SurfaceColor( %8 F0 )
  100.     Poly( a 27 28 29 30 ) ;roof toit
  101.  
  102.     ;antennes et pavillon
  103.     LineColor( 04 F0 )
  104.     MoveToPt( 31 )
  105.     DrawToPt( 32 )
  106.     MoveToPt( 33 )
  107.     DrawToPt( 34 )
  108.     MoveToPt( 35 )
  109.     DrawToPt( 36 )
  110.  
  111.    ;dessin toit
  112.     LineColor( 0B F0 )  
  113.     MoveToPt( 37 )
  114.     DrawToPt( 31 33 38 )
  115.     
  116.     IfVarAnd( :E2 28C 6 )
  117.     ;
  118.     ;  this is executed only during dusk and night ..
  119.     Call( :E3 )
  120.     ;  environ 1 ampoule tous les mètres
  121.         LineColor( 14 F0 )
  122.         DotLine(  -2 9 6     0  2  20   15  )
  123.         DotLine(  -2 9 6     0  5 -22   30  ) 
  124.         DotLine(  2 9 6     0  2  20   15  ) 
  125.         DotLine(  2 9 6     0  5 -22   30  ) 
  126.     ; -------------------------------------------------
  127.     Return
  128. :E2
  129.     ;flancs cabine de jour
  130.     RepeatBitmap( 0 0 0 )
  131.     TexPoly( a
  132.     13 1 243
  133.     17 1 249
  134.     18 50 249
  135.     14 50 243
  136.     )
  137.     TexPoly( a
  138.     16 1 243
  139.     20 1 249
  140.     19 50 249
  141.     15 50 243
  142.     )
  143.  
  144.     return
  145. :E3
  146.     ;flancs cabine de nuit
  147.     RepeatBitmap( 0 0 0 )
  148.     TexPoly( a
  149.     13 1 230
  150.     17 1 236
  151.     18 50 236
  152.     14 50 230
  153.     )
  154.     TexPoly( a
  155.     16 1 230
  156.     20 1 236
  157.     19 50 236
  158.     15 50 230
  159.     )
  160.     Return
  161. EndA
  162.  
  163.